rpgcolorsr User Guide
Brian Froeb
6/29/2020
There are currently 71 colors included in this package the color names and their hex codes are below
## shale shale_ramp1 shale_ramp5 green
## "#3e4d54" "#d6dde0" "#20272b" "#96a821"
## green_ramp1 green_ramp5 teal teal_ramp1
## "#f6f0d5" "#4b541d" "#3fbfba" "#d7f2f1"
## teal_ramp5 orange orange_ramp1 orange_ramp5
## "#1f5f5e" "#F29C20" "#fcecd3" "#F29C20"
## gray gray_ramp1 gray_ramp5 bright green
## "#beb5af" "#f1f0ef" "#655852" "#CEDB00"
## sea green sea_green_ramp1 sea_green_ramp2 blue
## "#218675" "#c6f2eb" "#10433a" "#008ba6"
## blue_ramp1 blue_ramp5 navy navy_ramp1
## "#bff0fb" "#008ba6" "#40516f" "#d5dbe6"
## navy_ramp5 black black_ramp1 black_ramp5
## "#202837" "#58585B" "#dcddde" "#2c2d2e"
## chartreuse chartreuse_ramp1 chartreuse_ramp5 gold
## "#CDDC29" "#f4f8d3" "#687012" "#ffee2a"
## gold_ramp1 gold_ramp5 burnt orange burnt_orange_ramp1
## "#fffcd5" "#958a00" "#f19d23" "#fcecd3"
## burnt_orange_ramp5 red red_ramp1 red_ramp5
## "#825109" "#ea425a" "#fbd9de" "#860f21"
## purple light purple medium purple gray purple
## "#8400a8" "#c29ed7" "#7030a0" "#704489"
## deep purple pink hot pink medium pink
## "#4c0073" "#e600a9" "#ff00c5" "#a80084"
## maroon pink dark pink earth earth_ramp1
## "#8400a8" "#73004c" "#edece6" "#f0f2da"
## earth_ramp2 horizon1 horizon2 cw_1
## "#d9d6ce" "#c9d1d4" "#bcd2d4" "#3D4E56"
## cw_2 cw_3 cw_4 cw_5
## "#3DBFBA" "#FFFFD3" "#FFE607" "#FFAA00"
## rpg_1 rpg_2 rpg_3 rainbow_1
## "#3DBFBA" "#F9F963" "#F29F24" "#E0E0E0"
## rainbow_2 rainbow_3 rainbow_4 rainbow_5
## "#425270" "#3DBFBA" "#95A53A" "#FFED28"
## rainbow_6 rainbow_7 rainbow_8
## "#FFAA00" "#ED2D46" "#8C50AA"These are grouped into 20 color palettes, the colors included in each palette and their hex codes are below
## $logo
## shale green teal orange
## "#3e4d54" "#96a821" "#3fbfba" "#F29C20"
##
## $additional
## gray bright green sea green blue navy black
## "#beb5af" "#CEDB00" "#218675" "#008ba6" "#40516f" "#58585B"
##
## $`main and additional`
## shale green teal orange gray bright green
## "#3e4d54" "#96a821" "#3fbfba" "#F29C20" "#beb5af" "#CEDB00"
## sea green blue navy black
## "#218675" "#008ba6" "#40516f" "#58585B"
##
## $shale_ramp
## <NA> shale_ramp5
## NA "#20272b"
##
## $green_ramp
## green_ramp1 green_ramp5
## "#f6f0d5" "#4b541d"
##
## $teal_ramp
## teal_ramp1 teal_ramp5
## "#d7f2f1" "#1f5f5e"
##
## $rpg_orange_ramp
## orange_ramp1 orange_ramp5
## "#fcecd3" "#F29C20"
##
## $gray_ramp
## gray_ramp1 gray_ramp5
## "#f1f0ef" "#655852"
##
## $sea_green_ramp
## sea_green_ramp1 sea_green_ramp2
## "#c6f2eb" "#10433a"
##
## $rpg_blue_ramp
## blue_ramp1 blue_ramp5
## "#bff0fb" "#008ba6"
##
## $navy_ramp
## navy_ramp1 navy_ramp5
## "#d5dbe6" "#202837"
##
## $black_ramp
## black_ramp1 black_ramp5
## "#dcddde" "#2c2d2e"
##
## $chartreuse_ramp
## chartreuse_ramp1 chartreuse_ramp5
## "#f4f8d3" "#687012"
##
## $gold_ramp
## gold_ramp1 gold_ramp5
## "#fffcd5" "#958a00"
##
## $burnt_orange_ramp
## burnt_orange_ramp1 burnt_orange_ramp5
## "#fcecd3" "#825109"
##
## $red_ramp
## red_ramp1 red_ramp5
## "#fbd9de" "#860f21"
##
## $earth_ramp
## earth_ramp1 earth_ramp2
## "#f0f2da" "#d9d6ce"
##
## $rpg_colors
## rpg_1 rpg_2 rpg_3
## "#3DBFBA" "#F9F963" "#F29F24"
##
## $rpg_cold_warm
## cw_1 cw_2 cw_3 cw_4 cw_5
## "#3D4E56" "#3DBFBA" "#FFFFD3" "#FFE607" "#FFAA00"
##
## $rpg_rainbow
## rainbow_1 rainbow_2 rainbow_3 rainbow_4 rainbow_5 rainbow_6 rainbow_7 rainbow_8
## "#E0E0E0" "#425270" "#3DBFBA" "#95A53A" "#FFED28" "#FFAA00" "#ED2D46" "#8C50AA"These color palettes can be inserted into ggplot graphics, examples of each palettes in ggplot are below
Functions Included
This package includes four functions:
-rpg_cols() -rpg_color_pal() -scale_color_rpg() -scale_fill_rpg()
rpg_cols
takes a input string or group of strings and returns the hex code. The color must be one of the colors included in this package
Example:
rpg_cols("blue")## blue
## "#008ba6"rpg_cols("teal", "black")## teal black
## "#3fbfba" "#58585B"rpg_color_pal
Converts an input string representing a color palette into a function that can be converted into a usable color palette.
rpg_color_pal("rpg_cold_warm")## function (n)
## {
## x <- ramp(seq.int(0, 1, length.out = n))
## if (ncol(x) == 4L)
## rgb(x[, 1L], x[, 2L], x[, 3L], x[, 4L], maxColorValue = 255)
## else rgb(x[, 1L], x[, 2L], x[, 3L], maxColorValue = 255)
## }
## <bytecode: 0x0000000019689ee0>
## <environment: 0x00000000196871f8>By adding a step count after the function it will return a usable palette
rpg_color_pal("rpg_cold_warm")(10)## [1] "#3D4E56" "#3D8082" "#3DB2AE" "#7DD4C2" "#D3F0CD" "#FFF9A5" "#FFEE4B"
## [8] "#FFDF06" "#FFC403" "#FFAA00"These palettes can be reversed as needed
rpg_color_pal("rpg_cold_warm", reverse = TRUE)(10)## [1] "#FFAA00" "#FFC403" "#FFDF06" "#FFEE4A" "#FFF9A5" "#D3F0CD" "#7DD4C2"
## [8] "#3DB2AE" "#3D8082" "#3D4E56"scale_color_rpg and scale_fill_rpg
These functions supply a fill or color to a ggplot call. See examples below.
Scale Color Examples
Discrete Palettes
ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Species)) +
geom_point(size = 4) +
scale_color_rpg(palette = "logo")
ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Species)) +
geom_point(size = 4) +
scale_color_rpg(palette = "additional")
ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Species)) +
geom_point(size = 4) +
scale_color_rpg(palette = "main and additional")
ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Species)) +
geom_point(size = 4) +
scale_color_rpg(palette = "rpg_colors")
ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Species)) +
geom_point(size = 4) +
scale_color_rpg(palette = "rpg_cold_warm")
ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Species)) +
geom_point(size = 4) +
scale_color_rpg(palette = "rpg_rainbow")
Discrete Palettes
ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Sepal.Length)) +
geom_point(size = 4) +
scale_color_rpg(discrete = FALSE, palette = "shale_ramp")
ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Sepal.Length)) +
geom_point(size = 4) +
scale_color_rpg(discrete = FALSE, palette = "green_ramp")
ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Sepal.Length)) +
geom_point(size = 4) +
scale_color_rpg(discrete = FALSE, palette = "red_ramp")
ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Sepal.Length)) +
geom_point(size = 4) +
scale_color_rpg(discrete = FALSE, palette = "earth_ramp")
ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Sepal.Length)) +
geom_point(size = 4) +
scale_color_rpg(discrete = FALSE, palette = "teal_ramp")
ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Sepal.Length)) +
geom_point(size = 4) +
scale_color_rpg(discrete = FALSE, palette = "rpg_orange_ramp")
ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Sepal.Length)) +
geom_point(size = 4) +
scale_color_rpg(discrete = FALSE, palette = "sea_green_ramp")
ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Sepal.Length)) +
geom_point(size = 4) +
scale_color_rpg(discrete = FALSE, palette = "rpg_blue_ramp")
ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Sepal.Length)) +
geom_point(size = 4) +
scale_color_rpg(discrete = FALSE, palette = "black_ramp")
ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Sepal.Length)) +
geom_point(size = 4) +
scale_color_rpg(discrete = FALSE, palette = "chartreuse_ramp")
ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Sepal.Length)) +
geom_point(size = 4) +
scale_color_rpg(discrete = FALSE, palette = "gold_ramp")
ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Sepal.Length)) +
geom_point(size = 4) +
scale_color_rpg(discrete = FALSE, palette = "burnt_orange_ramp")
ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Sepal.Length)) +
geom_point(size = 4) +
scale_color_rpg(discrete = FALSE, palette = "rpg_colors")
ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Sepal.Length)) +
geom_point(size = 4) +
scale_color_rpg(discrete = FALSE, palette = "rpg_cold_warm")
ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Sepal.Length)) +
geom_point(size = 4) +
scale_color_rpg(discrete = FALSE, palette = "rpg_rainbow")
Scale Fill Examples
ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
geom_bar() +
theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
scale_fill_rpg(palette = "logo", guide = "none")
ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
geom_bar() +
theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
scale_fill_rpg(palette = "additional", guide = "none")
ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
geom_bar() +
theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
scale_fill_rpg(palette = "main and additional", guide = "none")
ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
geom_bar() +
theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
scale_fill_rpg(palette = "shale_ramp", guide = "none")
ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
geom_bar() +
theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
scale_fill_rpg(palette = "green_ramp", guide = "none")
ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
geom_bar() +
theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
scale_fill_rpg(palette = "red_ramp", guide = "none")
ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
geom_bar() +
theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
scale_fill_rpg(palette = "earth_ramp", guide = "none")
ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
geom_bar() +
theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
scale_fill_rpg(palette = "teal_ramp", guide = "none")
ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
geom_bar() +
theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
scale_fill_rpg(palette = "rpg_orange_ramp", guide = "none")
ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
geom_bar() +
theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
scale_fill_rpg(palette = "gray_ramp", guide = "none")
ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
geom_bar() +
theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
scale_fill_rpg(palette = "sea_green_ramp", guide = "none")
ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
geom_bar() +
theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
scale_fill_rpg(palette = "rpg_blue_ramp", guide = "none")
ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
geom_bar() +
theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
scale_fill_rpg(palette = "navy_ramp", guide = "none")
ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
geom_bar() +
theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
scale_fill_rpg(palette = "black_ramp", guide = "none")
ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
geom_bar() +
theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
scale_fill_rpg(palette = "chartreuse_ramp", guide = "none")
ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
geom_bar() +
theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
scale_fill_rpg(palette = "gold_ramp", guide = "none")
ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
geom_bar() +
theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
scale_fill_rpg(palette = "burnt_orange_ramp", guide = "none")
ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
geom_bar() +
theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
scale_fill_rpg(palette = "rpg_colors", guide = "none")
ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
geom_bar() +
theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
scale_fill_rpg(palette = "rpg_cold_warm", guide = "none")
ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
geom_bar() +
theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
scale_fill_rpg(palette = "rpg_rainbow", guide = "none")
Geographic Data with ggplot2
These palettes can also be used with ggplot2 to display geographic data with both continuous and discrete scales, uses the scale fill function.
Discrete Palettes
ggplot(NLD_muni) +
geom_sf(aes(fill = province)) +
scale_fill_rpg(palette = "logo")
ggplot(NLD_muni) +
geom_sf(aes(fill = province)) +
scale_fill_rpg(palette = "additional")
ggplot(NLD_muni) +
geom_sf(aes(fill = province)) +
scale_fill_rpg(palette = "main and additional")
ggplot(NLD_muni) +
geom_sf(aes(fill = province)) +
scale_fill_rpg(palette = "rpg_colors")
ggplot(NLD_muni) +
geom_sf(aes(fill = province)) +
scale_fill_rpg(palette = "rpg_cold_warm")
ggplot(NLD_muni) +
geom_sf(aes(fill = province)) +
scale_fill_rpg(palette = "rpg_rainbow")
Continous Palettes
ggplot(NLD_muni) +
geom_sf(aes(fill = population)) +
scale_fill_rpg(palette = "logo", discrete = FALSE)
ggplot(NLD_muni) +
geom_sf(aes(fill = population)) +
scale_fill_rpg(palette = "additional", discrete = FALSE)
ggplot(NLD_muni) +
geom_sf(aes(fill = population)) +
scale_fill_rpg(palette = "main and additional", discrete = FALSE)
ggplot(NLD_muni) +
geom_sf(aes(fill = population)) +
scale_fill_rpg(palette = "shale_ramp", discrete = FALSE)
ggplot(NLD_muni) +
geom_sf(aes(fill = population)) +
scale_fill_rpg(palette = "green_ramp", discrete = FALSE)
ggplot(NLD_muni) +
geom_sf(aes(fill = population)) +
scale_fill_rpg(palette = "red_ramp", discrete = FALSE)
ggplot(NLD_muni) +
geom_sf(aes(fill = population)) +
scale_fill_rpg(palette = "earth_ramp", discrete = FALSE)
ggplot(NLD_muni) +
geom_sf(aes(fill = population)) +
scale_fill_rpg(palette = "teal_ramp", discrete = FALSE)
ggplot(NLD_muni) +
geom_sf(aes(fill = population)) +
scale_fill_rpg(palette = "rpg_orange_ramp", discrete = FALSE)
ggplot(NLD_muni) +
geom_sf(aes(fill = population)) +
scale_fill_rpg(palette = "gray_ramp", discrete = FALSE)
ggplot(NLD_muni) +
geom_sf(aes(fill = population)) +
scale_fill_rpg(palette = "sea_green_ramp", discrete = FALSE)
ggplot(NLD_muni) +
geom_sf(aes(fill = population)) +
scale_fill_rpg(palette = "rpg_blue_ramp", discrete = FALSE)
ggplot(NLD_muni) +
geom_sf(aes(fill = population)) +
scale_fill_rpg(palette = "navy_ramp", discrete = FALSE)
ggplot(NLD_muni) +
geom_sf(aes(fill = population)) +
scale_fill_rpg(palette = "black_ramp", discrete = FALSE)
ggplot(NLD_muni) +
geom_sf(aes(fill = population)) +
scale_fill_rpg(palette = "chartreuse_ramp", discrete = FALSE)
ggplot(NLD_muni) +
geom_sf(aes(fill = population)) +
scale_fill_rpg(palette = "gold_ramp", discrete = FALSE)
ggplot(NLD_muni) +
geom_sf(aes(fill = population)) +
scale_fill_rpg(palette = "burnt_orange_ramp", discrete = FALSE)
ggplot(NLD_muni) +
geom_sf(aes(fill = population)) +
scale_fill_rpg(palette = "rpg_colors", discrete = FALSE)
ggplot(NLD_muni) +
geom_sf(aes(fill = population)) +
scale_fill_rpg(palette = "rpg_cold_warm", discrete = FALSE)
ggplot(NLD_muni) +
geom_sf(aes(fill = population)) +
scale_fill_rpg(palette = "rpg_rainbow", discrete = FALSE)
Geographic Data with tmap
tmap uses a differing syntax from ggplot however by using the rpg_color_pal function, with a step count indicated, and saving the output to an object these palettes can be used in tmap.
Discrete Palettes
MyPal <- rpg_color_pal("logo")(10)
tm_shape(NLD_muni) +
tm_polygons("province", palette = MyPal) 
MyPal <- rpg_color_pal("additional")(10)
tm_shape(NLD_muni) +
tm_polygons("province", palette = MyPal) 
MyPal <- rpg_color_pal("main and additional")(10)
tm_shape(NLD_muni) +
tm_polygons("province", palette = MyPal) 
MyPal <- rpg_color_pal("rpg_colors")(10)
tm_shape(NLD_muni) +
tm_polygons("province", palette = MyPal)
MyPal <- rpg_color_pal("rpg_cold_warm")(10)
tm_shape(NLD_muni) +
tm_polygons("province", palette = MyPal)
MyPal <- rpg_color_pal("rpg_rainbow")(10)
tm_shape(NLD_muni) +
tm_polygons("province", palette = MyPal) 
Continous Palettes
MyPal <- rpg_color_pal("logo")(10)
tm_shape(NLD_muni) +
tm_polygons("population", palette = MyPal)
MyPal <- rpg_color_pal("additional")(10)
tm_shape(NLD_muni) +
tm_polygons("population", palette = MyPal)
MyPal <- rpg_color_pal("main and additional")(10)
tm_shape(NLD_muni) +
tm_polygons("population", palette = MyPal)
MyPal <- rpg_color_pal("shale_ramp")(10)
tm_shape(NLD_muni) +
tm_polygons("population", palette = MyPal) 
MyPal <- rpg_color_pal("green_ramp")(10)
tm_shape(NLD_muni) +
tm_polygons("population", palette = MyPal)
MyPal <- rpg_color_pal("red_ramp")(10)
tm_shape(NLD_muni) +
tm_polygons("population", palette = MyPal) 
MyPal <- rpg_color_pal("earth_ramp")(10)
tm_shape(NLD_muni) +
tm_polygons("population", palette = MyPal) 
MyPal <- rpg_color_pal("teal_ramp")(10)
tm_shape(NLD_muni) +
tm_polygons("population", palette = MyPal)
MyPal <- rpg_color_pal("rpg_orange_ramp")(10)
tm_shape(NLD_muni) +
tm_polygons("population", palette = MyPal) 
MyPal <- rpg_color_pal("gray_ramp")(10)
tm_shape(NLD_muni) +
tm_polygons("population", palette = MyPal)
MyPal <- rpg_color_pal("sea_green_ramp")(10)
tm_shape(NLD_muni) +
tm_polygons("population", palette = MyPal) 
MyPal <- rpg_color_pal("rpg_blue_ramp")(10)
tm_shape(NLD_muni) +
tm_polygons("population", palette = MyPal) 
MyPal <- rpg_color_pal("navy_ramp")(10)
tm_shape(NLD_muni) +
tm_polygons("population", palette = MyPal) 
MyPal <- rpg_color_pal("black_ramp")(10)
tm_shape(NLD_muni) +
tm_polygons("population", palette = MyPal) 
MyPal <- rpg_color_pal("chartreuse_ramp")(10)
tm_shape(NLD_muni) +
tm_polygons("population", palette = MyPal) 
MyPal <- rpg_color_pal("gold_ramp")(10)
tm_shape(NLD_muni) +
tm_polygons("population", palette = MyPal) 
MyPal <- rpg_color_pal("burnt_orange_ramp")(10)
tm_shape(NLD_muni) +
tm_polygons("population", palette = MyPal) 
MyPal <- rpg_color_pal("rpg_colors")(10)
tm_shape(NLD_muni) +
tm_polygons("population", palette = MyPal)
MyPal <- rpg_color_pal("rpg_cold_warm")(10)
tm_shape(NLD_muni) +
tm_polygons("population", palette = MyPal) 
MyPal <- rpg_color_pal("rpg_rainbow")(10)
tm_shape(NLD_muni) +
tm_polygons("population", palette = MyPal)